home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
lisp
/
kcl
/
kcl.lha
/
attport
/
sys_kcl.c
< prev
next >
Wrap
C/C++ Source or Header
|
1986-03-11
|
8KB
|
204 lines
#include "../h/include.h"
static object fasl_data;
init_init()
{
enter_mark_origin(&fasl_data);
fasl_data = Cnil;
load("../lsp/export.lsp");
fasl_data = read_fasl_data("../lsp/defmacro.o");
init_defmacro(NULL, 0, fasl_data);
fasl_data = read_fasl_data("../lsp/evalmacros.o");
init_evalmacros(NULL, 0, fasl_data);
fasl_data = read_fasl_data("../lsp/top.o");
init_top(NULL, 0, fasl_data);
fasl_data = read_fasl_data("../lsp/module.o");
init_module(NULL, 0, fasl_data);
load("../lsp/autoload.lsp");
}
init_system()
{
printf("Initializing predlib... "); fflush(stdout);
fasl_data = read_fasl_data("../lsp/predlib.o");
init_predlib(NULL, 0, fasl_data);
printf("\n"); fflush(stdout);
printf("Initializing setf... "); fflush(stdout);
fasl_data = read_fasl_data("../lsp/setf.o");
init_setf(NULL, 0, fasl_data);
printf("\n"); fflush(stdout);
printf("Initializing arraylib... "); fflush(stdout);
fasl_data = read_fasl_data("../lsp/arraylib.o");
init_arraylib(NULL, 0, fasl_data);
printf("\n"); fflush(stdout);
printf("Initializing assert... "); fflush(stdout);
fasl_data = read_fasl_data("../lsp/assert.o");
init_assert(NULL, 0, fasl_data);
printf("\n"); fflush(stdout);
printf("Initializing defstruct... "); fflush(stdout);
fasl_data = read_fasl_data("../lsp/defstruct.o");
init_defstruct(NULL, 0, fasl_data);
printf("\n"); fflush(stdout);
printf("Initializing describe... "); fflush(stdout);
fasl_data = read_fasl_data("../lsp/describe.o");
init_describe(NULL, 0, fasl_data);
printf("\n"); fflush(stdout);
printf("Initializing iolib... "); fflush(stdout);
fasl_data = read_fasl_data("../lsp/iolib.o");
init_iolib(NULL, 0, fasl_data);
printf("\n"); fflush(stdout);
printf("Initializing listlib... "); fflush(stdout);
fasl_data = read_fasl_data("../lsp/listlib.o");
init_listlib(NULL, 0, fasl_data);
printf("\n"); fflush(stdout);
printf("Initializing mislib... "); fflush(stdout);
fasl_data = read_fasl_data("../lsp/mislib.o");
init_mislib(NULL, 0, fasl_data);
printf("\n"); fflush(stdout);
printf("Initializing numlib... "); fflush(stdout);
fasl_data = read_fasl_data("../lsp/numlib.o");
init_numlib(NULL, 0, fasl_data);
printf("\n"); fflush(stdout);
printf("Initializing packlib... "); fflush(stdout);
fasl_data = read_fasl_data("../lsp/packlib.o");
init_packlib(NULL, 0, fasl_data);
printf("\n"); fflush(stdout);
printf("Initializing seq... "); fflush(stdout);
fasl_data = read_fasl_data("../lsp/seq.o");
init_seq(NULL, 0, fasl_data);
printf("\n"); fflush(stdout);
printf("Initializing seqlib... "); fflush(stdout);
fasl_data = read_fasl_data("../lsp/seqlib.o");
init_seqlib(NULL, 0, fasl_data);
printf("\n"); fflush(stdout);
printf("Initializing trace... "); fflush(stdout);
fasl_data = read_fasl_data("../lsp/trace.o");
init_trace(NULL, 0, fasl_data);
printf("\n"); fflush(stdout);
printf("Initializing cmpinline... "); fflush(stdout);
Vpackage->s.s_dbind = user_package;
fasl_data = read_fasl_data("../cmpnew/cmpinline.o");
init_cmpinline(NULL, 0, fasl_data);
printf("\n"); fflush(stdout);
printf("Initializing cmputil... "); fflush(stdout);
Vpackage->s.s_dbind = user_package;
fasl_data = read_fasl_data("../cmpnew/cmputil.o");
init_cmputil(NULL, 0, fasl_data);
printf("\n"); fflush(stdout);
printf("Initializing cmptype... "); fflush(stdout);
Vpackage->s.s_dbind = user_package;
fasl_data = read_fasl_data("../cmpnew/cmptype.o");
init_cmptype(NULL, 0, fasl_data);
printf("\n"); fflush(stdout);
printf("Initializing cmpbind... "); fflush(stdout);
Vpackage->s.s_dbind = user_package;
fasl_data = read_fasl_data("../cmpnew/cmpbind.o");
init_cmpbind(NULL, 0, fasl_data);
printf("\n"); fflush(stdout);
printf("Initializing cmpblock... "); fflush(stdout);
Vpackage->s.s_dbind = user_package;
fasl_data = read_fasl_data("../cmpnew/cmpblock.o");
init_cmpblock(NULL, 0, fasl_data);
printf("\n"); fflush(stdout);
printf("Initializing cmpcall... "); fflush(stdout);
Vpackage->s.s_dbind = user_package;
fasl_data = read_fasl_data("../cmpnew/cmpcall.o");
init_cmpcall(NULL, 0, fasl_data);
printf("\n"); fflush(stdout);
printf("Initializing cmpcatch... "); fflush(stdout);
Vpackage->s.s_dbind = user_package;
fasl_data = read_fasl_data("../cmpnew/cmpcatch.o");
init_cmpcatch(NULL, 0, fasl_data);
printf("\n"); fflush(stdout);
printf("Initializing cmpenv... "); fflush(stdout);
Vpackage->s.s_dbind = user_package;
fasl_data = read_fasl_data("../cmpnew/cmpenv.o");
init_cmpenv(NULL, 0, fasl_data);
printf("\n"); fflush(stdout);
printf("Initializing cmpeval... "); fflush(stdout);
Vpackage->s.s_dbind = user_package;
fasl_data = read_fasl_data("../cmpnew/cmpeval.o");
init_cmpeval(NULL, 0, fasl_data);
printf("\n"); fflush(stdout);
printf("Initializing cmpflet... "); fflush(stdout);
Vpackage->s.s_dbind = user_package;
fasl_data = read_fasl_data("../cmpnew/cmpflet.o");
init_cmpflet(NULL, 0, fasl_data);
printf("\n"); fflush(stdout);
printf("Initializing cmpfun... "); fflush(stdout);
Vpackage->s.s_dbind = user_package;
fasl_data = read_fasl_data("../cmpnew/cmpfun.o");
init_cmpfun(NULL, 0, fasl_data);
printf("\n"); fflush(stdout);
printf("Initializing cmpif... "); fflush(stdout);
Vpackage->s.s_dbind = user_package;
fasl_data = read_fasl_data("../cmpnew/cmpif.o");
init_cmpif(NULL, 0, fasl_data);
printf("\n"); fflush(stdout);
printf("Initializing cmplabel... "); fflush(stdout);
Vpackage->s.s_dbind = user_package;
fasl_data = read_fasl_data("../cmpnew/cmplabel.o");
init_cmplabel(NULL, 0, fasl_data);
printf("\n"); fflush(stdout);
printf("Initializing cmplam... "); fflush(stdout);
Vpackage->s.s_dbind = user_package;
fasl_data = read_fasl_data("../cmpnew/cmplam.o");
init_cmplam(NULL, 0, fasl_data);
printf("\n"); fflush(stdout);
printf("Initializing cmplet... "); fflush(stdout);
Vpackage->s.s_dbind = user_package;
fasl_data = read_fasl_data("../cmpnew/cmplet.o");
init_cmplet(NULL, 0, fasl_data);
printf("\n"); fflush(stdout);
printf("Initializing cmploc... "); fflush(stdout);
Vpackage->s.s_dbind = user_package;
fasl_data = read_fasl_data("../cmpnew/cmploc.o");
init_cmploc(NULL, 0, fasl_data);
printf("\n"); fflush(stdout);
printf("Initializing cmpmap... "); fflush(stdout);
Vpackage->s.s_dbind = user_package;
fasl_data = read_fasl_data("../cmpnew/cmpmap.o");
init_cmpmap(NULL, 0, fasl_data);
printf("\n"); fflush(stdout);
printf("Initializing cmpmulti... "); fflush(stdout);
Vpackage->s.s_dbind = user_package;
fasl_data = read_fasl_data("../cmpnew/cmpmulti.o");
init_cmpmulti(NULL, 0, fasl_data);
printf("\n"); fflush(stdout);
printf("Initializing cmpspecial... "); fflush(stdout);
Vpackage->s.s_dbind = user_package;
fasl_data = read_fasl_data("../cmpnew/cmpspecial.o");
init_cmpspecial(NULL, 0, fasl_data);
printf("\n"); fflush(stdout);
printf("Initializing cmptag... "); fflush(stdout);
Vpackage->s.s_dbind = user_package;
fasl_data = read_fasl_data("../cmpnew/cmptag.o");
init_cmptag(NULL, 0, fasl_data);
printf("\n"); fflush(stdout);
printf("Initializing cmptop... "); fflush(stdout);
Vpackage->s.s_dbind = user_package;
fasl_data = read_fasl_data("../cmpnew/cmptop.o");
init_cmptop(NULL, 0, fasl_data);
printf("\n"); fflush(stdout);
printf("Initializing cmpvar... "); fflush(stdout);
Vpackage->s.s_dbind = user_package;
fasl_data = read_fasl_data("../cmpnew/cmpvar.o");
init_cmpvar(NULL, 0, fasl_data);
printf("\n"); fflush(stdout);
printf("Initializing cmpvs... "); fflush(stdout);
Vpackage->s.s_dbind = user_package;
fasl_data = read_fasl_data("../cmpnew/cmpvs.o");
init_cmpvs(NULL, 0, fasl_data);
printf("\n"); fflush(stdout);
printf("Initializing cmpwt... "); fflush(stdout);
Vpackage->s.s_dbind = user_package;
fasl_data = read_fasl_data("../cmpnew/cmpwt.o");
init_cmpwt(NULL, 0, fasl_data);
printf("\n"); fflush(stdout);
Vpackage->s.s_dbind = user_package;
}